(de javaDefInstanceFields (Fields SimpleClass)
  (let (@SimpleClass (intern SimpleClass)
        Fields (memberNames Fields "Static" T) )
    (for @Field Fields
      (let FieldName (instanceMember @Field ":")
        (or (fun? (val FieldName) )
          (def FieldName
            (fill
              (quote (@SimpleClass . @)
                (public @SimpleClass @Field) ) ) ) ) ) ) ) )